home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / RMTP03.ARJ / DISCON.PAS next >
Pascal/Delphi Source File  |  1992-02-25  |  2KB  |  59 lines
  1. Program DisCon;
  2.  Uses Graph;
  3. Const
  4. (* Turbo Pascal, Width= 20 Height= 23 Colors= 16 *)
  5.  
  6. Pac : Array[1..282] of Byte = (
  7.           $13,$00,$16,$00,$00,$FE,$00,$00,$FE,$00,
  8.           $00,$FE,$00,$FF,$01,$FF,$03,$FF,$80,$03,
  9.           $FF,$80,$03,$FF,$80,$FC,$00,$7F,$07,$8F,
  10.           $C0,$07,$8F,$C0,$07,$8F,$C0,$F8,$00,$3F,
  11.           $1F,$77,$F0,$1F,$17,$F0,$1F,$17,$E0,$E0,
  12.           $70,$0F,$1F,$77,$E0,$1F,$37,$E0,$1F,$37,
  13.           $C0,$E0,$70,$1F,$3F,$77,$C0,$3F,$17,$C0,
  14.           $3F,$17,$80,$C0,$70,$3F,$7F,$8F,$80,$7F,
  15.           $8F,$80,$7F,$8F,$00,$80,$00,$7F,$7F,$FF,
  16.           $00,$7F,$FF,$00,$7F,$FE,$00,$80,$00,$FF,
  17.           $FF,$FE,$00,$FF,$FE,$00,$FF,$FC,$00,$00,
  18.           $01,$FF,$FF,$FC,$00,$FF,$FC,$00,$FF,$F8,
  19.           $00,$00,$03,$FF,$FF,$F8,$00,$FF,$F8,$00,
  20.           $FF,$F0,$00,$00,$07,$FF,$FF,$F0,$00,$FF,
  21.           $F0,$00,$FF,$E0,$00,$00,$0F,$FF,$FF,$F8,
  22.           $00,$FF,$F8,$00,$FF,$F0,$00,$00,$07,$FF,
  23.           $FF,$FC,$00,$FF,$FC,$00,$FF,$F8,$00,$00,
  24.           $03,$FF,$FF,$FE,$00,$FF,$FE,$00,$FF,$FC,
  25.           $00,$00,$01,$FF,$7F,$FF,$00,$7F,$FF,$00,
  26.           $7F,$FE,$00,$80,$00,$FF,$7F,$FF,$80,$7F,
  27.           $FF,$80,$7F,$FF,$00,$80,$00,$7F,$3F,$FF,
  28.           $C0,$3F,$FF,$C0,$3F,$FF,$80,$C0,$00,$3F,
  29.           $1F,$FF,$E0,$1F,$FF,$E0,$1F,$FF,$C0,$E0,
  30.           $00,$1F,$1F,$FF,$F0,$1F,$FF,$F0,$1F,$FF,
  31.           $E0,$E0,$00,$0F,$07,$FF,$C0,$07,$FF,$C0,
  32.           $07,$FF,$C0,$F8,$00,$3F,$03,$FF,$80,$03,
  33.           $FF,$80,$03,$FF,$80,$FC,$00,$7F,$00,$FE,
  34.           $00,$00,$FE,$00,$00,$FE,$00,$FF,$01,$FF,
  35.           $00,$00);
  36.  
  37. Var
  38.  Gd      : Integer;
  39.  Gm      : Integer;
  40.  PacImg  : Pointer;
  41. Begin
  42.  Gd:=EGA;
  43.  Gm:=EGAhi;
  44.  InitGraph(Gd,Gm,'');                      (* Set path where EGAVGA.BGI *)
  45.                                            (* is located                *)
  46.  
  47.  SetFillStyle(SolidFill,Blue);
  48.  Bar(0,0,639,349);
  49.  
  50.  
  51.  PacImg:=@Pac;                             (* Pass the address of the   *)
  52.                                            (* Pac constant to a pointer *)
  53.  
  54.  PutImage(310,160,PacImg^,NormalPut);      (* Display image             *)
  55.  
  56.  ReadLn;                                   (* Wait for enter key        *)
  57.  
  58.  CloseGraph;                               (* Close graphics            *)
  59. End.